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Abstract 

This report describes two data acquisition computer programs which were 
developed for a high temperature tribometer, a friction and wear test 
apparatus. The raw data produced by the tribometer and the methods used to 
sample that data are explained. In addition, the instrumentation and computer 
hardware and software are presented. This report also shows how computer data 
acquisition was applied to increase convenience and productivity on a high 
temperature tribometer. 

INTRODUCTION 

Ceramics and composites are increasingly being applied in the industrial 
and research communities. There is a great need to determine the properties 
of these materials such as strength and thermal stability. The tribological 
characteristics of these materials are also important. Friction and wear data 
are critically important for material selection in rubbing or sliding 
applications. Since new composites and ceramics are typically applied under 
extreme conditions, such as high temperatures and loads, tribological 
evaluation must be done under similar use conditions. Therefore, specialized 
friction and wear test machines (tri bometers) have been developed to acquire 


this data. 


Extreme testing conditions, however, present a number of problems which 
must be overcome in order to evaluate a proposed material. The tribometer 
design must allow for various configurations of sliding contact in temperatures 
up to 1200 °C. In addition to the obvious mechanical difficulties associated 
with testing materials under extreme conditions, instrumentation and control 
concerns are also present. Reference 1 describes a tribometer at NASA Lewis 
Research Center designed to tes-t metals and ceramic materials up to 1200 “C. 

Computer data acquisition is well suited to acquire and store data from 
tribological tests, but has its own disadvantages. Although computer data 
acquisition allows the reduction of data prior to its being stored and enables 
the data to be plotted or examined directly from the test apparatus, software 
is not generally available for specific applications and must be developed 
along with the application instrumentation and hardware. In addition to the 
software problems, computer data acquisition is not a substitute for analog 
instrumentation. Since digital computers sample signals discretely rather 
than continuously, they are best used to acquire data averages. In this 
application, the computer is used to obtain the average values and scatter 
that is normally read manually from analog devices such as strip chart 
recorders and oscilloscopes. Analog devices are used in conjunction with the 
computer to corroborate the accuracy of the computer acquired data. 

Tribometer tests are generally one of two types: unidirectional sliding, 

where the outputs are fairly constant with time, or oscillating (reciprocating) 
sliding, where direction is periodically reversed. Examples of the output 
signals may be seen in Fig. 1. The two testing types, due to the differences 
in the form the data takes, require different acquisition methods, although the 
data of interest is the same. Unidirectional sliding is relatively easy to 
sample because the signals have constant polarity. Oscillating sliding tests 
must consider specimen rotation direction as well as signal magnitude. 
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Typical values which are monitored and stored are: friction coefficient, 

friction force, load force, specimen speed, specimen temperature, and time. 
Relevant parameters also frequently monitored, but not stored, are spindle 
support bearing oil flow and temperature and furnace temperatures. This paper 
describes the development and implementation of two computer data acquisition 
programs which read, manipulate, and present data from a high temperature 
tribometer. 

PROCEDURE: TYPICAL TEST CONDITIONS AND PARAMETERS 

The friction and wear properties of materials are determined using a pin- 
on-disk tribometer. With this apparatus, a disk is rotated unidirectional ly 
or oscillated and a hemi spherical ly tipped pin is loaded against it. The pin 
wears a track in the disk which has a radius of 25.4 mm. Friction and load 
forces are measured electronically, using load cells, during the test runs. 

The specimens are removed periodically to make wear measurements. The 
tribometer Is illustrated in Fig. 2. 

For a unidirectional test, the sliding velocity ranges from 0.2 to 
22 m/sec. For oscillating tests, the specimen frequency is between 0.1 and 
5 Hz at amplitudes of near 0 to ±60°. Because of the crank and rocker drive 
system used for oscillating tests, the specimen speed is sinusoidal. In both 
cases, the load can vary from 0.1 to 100 kg. The temperature can be controlled 
from 25 to 1200 °C. A typical test may last for 1 hr, but test durations up to 
many hours can be obtained in a variety of purge atmospheres. 

Because the tribometer instrumented here is capable of such a wide range 
of testing conditions, the data acquisition system must, in this case, be 
flexible enough to handle a wide range of Inputs and test parameters. 

HARDWARE: INSTRUMENTATION AND COMPUTER 

Instrumentation for the tribometer is conventional. The data of interest 
consists of: friction force, load force, specimen speed, temperature and time. 
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The friction coefficient which is calculated by dividing friction force by load 
force is also stored. Figure 3 shows, schematically, the instrumentation 
layout for the tribometer. 

Friction force and load force are measured by using calibrated strain 
gauge load cells. In compression, the load cells produce a negative output 
voltage and when in tension the output is positive. Signal conditioners and 
amplifiers are used to modify the load cell outputs and produce a calibrated 
output of 1 V/kg to the analog input board of a data interface and to the 
analog Instrumentation. 

Analog meters are used to monitor the polarities of the friction force 
and load force signals. The polarity of the friction force signal is used to 
determine the direction of disk rotation. Although the polarity of both 
signals is useful for tribometer operation, it is not retained on acquired 
data. The analog signals are also monitored by an oscilloscope and chart 
recorder in order to double check the accuracy of the computer acquired data 
and establish the data scatter band. 

The oscilloscope is used to verify that disk run-out (TIR) is minimal. 
Although during assembly, disk run-out Is measured to ensure that it is within 
tolerances (<0.025 mm), run-out as small as 0.006 mm can be detected 
electronically. Disk run-out causes both the friction force and load force 
signals to become sinusoidal. Figure 4 shows examples of the oscilloscope 
traces of the load and friction force signals with a run-out condition. As 
shown, both signals become sinusoidal and remain in phase, indicating that the 
Increase in load corresponds to the increase in friction force. 

If run-out is suspected as the cause of data fluctuations, then the 
amplitude of the friction force scatter will be approximately equal to the 
average friction coefficient multiplied by amplitude of the load force scatter. 
If a periodic data scatter in the friction force is detected without a 
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corresponding scatter in the loading force, then it can be Inferred that the 
variation friction coefficient is a function of disk, track location. Thus, in 
this case, it is a material characteristic rather than a testing artifact. 

Since the friction coefficient is a ratio of friction force to load force the 
computer automatically calculates the value and compensates for run-out induced 
fluctuations . 

Specimen speed is measured- by using a proximity probe and a toothed wheel 
pickup. The probe, stimulated by the pickup wheel on the rig drive, produces a 
sine wave with a frequency directly related to the motor speed. This frequency 
is converted to a dc voltage and calibrated to 1 V/1000 rpm. 

Specimen temperature is measured using four platinum-rhodium proximity 
thermocouples. In order to compensate for any thermal gradients within the 
furnace the four temperature readings are averaged. The average, which has an 
estimated external error of ±5 percent, is stored as the specimen temperature. 

Elapsed time is stored directly from within the acquisition programming. 
The elapsed time is calculated by using the number of the current data point 
and the time interval for sampling or by accessing the computer clock. The 
time is then stored as data. 

Support bearing oil flow in and out are monitored using flow meters. The 
flow meters, having a dimensionless calibration, are used to verify oil flow 
only. The oil temperature is monitored using 1 ron-constantan thermocouples. 
Room temperature and relative humidity are also monitored and documented on the 
screen display. 

A personal computer is used for data acquisition. The computer has 1024 K 
of RAM and an expanded graphics adapter. A Keithley 570 data acquisition 
module and I-EEE computer interface are also used. The Interface is equipped 
with a thermocouple board, capable of reading up to 16 inputs, an analog input 
module, which can monitor 32 single-ended or 16 differential inputs, and 
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Isolated digital Input and output modules, both having 16 channels. Resolution 
of analog signals Is to 1 mV with a -10 to 10 V range. The digital boards are 
configured for 5 V Inputs. Data sampling or acquisition time varies from 
~1 nsec for digital Inputs up to 3 msec for temperature readings. The system 
multiplexer samples the Interface module signals and a single analog to digital 
(A to D) converter with 12 bit resolution, communicates the multiplexed data to 
the computer. 

For this application 11 data inputs are used. The inputs consist of five 
thermocouple, five analog and one digital input. The thermocouple inputs 
consist of four proximity furnace thermocouples and a thermocouple monitoring 
return oil temperature. The analog inputs are support bearing oil flow in and 
out, friction force, load force, and specimen speed. The digital input is used 
as the data sampling trigger for oscillating tests. The hardware configuration 
allows friction force and load force resolution to 1 g and temperature 
resolution to 6 °C. 

SOFTWARE 

The system software used for the data acquisition programs is 
specifically designed for data acquisition and control functions and allows 
two computer modes, foreground and background. These are controlled by a user 
selected interrupt rate which toggles the computer between the two modes. The 
foreground mode allows the user to examine and manipulate data on a real time 
basis, while sampling and storing the data in the background mode at 
essentially the same time. The software is also capable of configuring the 
input/output (I/O) ports of the data interface by using a configuration table. 
(See Appendix A, for an example of the table.) The configuration table, seen 
as a user file by the computer, allows inputs and outputs to be identified 
outside the actual acquisition program. This greatly increases the speed in 
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which the program is able to run and allows more than one program to be used 
without renaming the I/O channels. 

The programs, which are written in BASIC, are enhanced by the use of 
callable machine language library subroutines which are installed as part of 
the Keithley system software. These subroutines enable internal data arrays 
to be created and single line commands to be used instead of intensive program 
routines which would normally be too time consuming to be performed while the 
program is running. For example, the mean and standard deviation may be 
calculated for a group of values simply by using a software command and 
Identifying the array name In which the data is stored. Use of this software 
has made it possible to conveniently acquire data from the tribometer. (See 
Ref. 2 for more information regarding the software.) 

PROGRAMS: DEVELOPMENT AND USE 

The programs for both the unidirectional and oscillating sliding use an 
introduction and Information input section and similar real time displays and 
data summaries. (See Appendix B for examples of the data summaries and screen 
displays.) This allows the user to input test run Identifiers, specimen 
materials, test conditions and the number of data points for the test. Input 
verification Is required for all Information entered. This permits correction 
of errors without restarting the program. In addition, both programs include 
a monitor mode which enables all test rig parameters to be verified prior to 
the test run and during preheating. The programs also use similar screen 
displays. The displays are used for test rig operation only and are not 
Intended to render data to be examined. After the data input and monitor 
stage, the two programs are different. 

Unidirectional Sliding Program 

The program for unidirectional sliding functions as follows: every 

30 sec, 10 friction force and load force pairs are sampled, typically at 1 sec 


7 



Intervals. These values are stored in a temporary data array. After the 
10 sec acquisition period, the other test parameters such as speed and 
temperature are read and stored. The friction force and load force pairs are 
ratloed to calculate 10 local friction coefficients. The 10 local friction 
coefficients are averaged and this average friction coefficient, in addition 
to the load force and friction force are stored in the permanent data file. 
Because each local friction coefficient is a ratio of individual friction force 
and load force pairs, the overall friction coefficient calculation compensates 
for any run-out induced errors in the friction force and load force magnitudes. 

When sampling data at preselected times, rather than randomly, it is 
conceivable that if the disk speed was exactly synchronized with the data 
acquisition rate then the 10 data points would consistently be taken at the 
same disk location and perhaps not be representative of a true average. 

However, due to small fluctuations in motor speed (~1 percent) and, to a lesser 
extent, computer speed fluctuations, undesired synchronized data acquisition 
has not occurred. Appendix C describes other timing considerations concerning 
data acquisition accuracy such as acquisition and settling times. 

It is important to keep in mind that the purpose of the computer is not 
to replace analog devices such as chart recorders and oscilloscopes. The 
computer is used to acquire an average sampling of the data over a particular 
time interval. Ouring the implementation of this program, it was found that 
sampling the data as just described yields an average and a standard deviation 
data which agree very well with averages and scatter bands measured with 
analog equipment. The advantage of using a computer is that the stored data 
is already entered into the computer memory and is already reduced to a form 
which can be easily manipulated and plotted. 

The program also includes calculation lines to allow for different 
calibrations for the load cells in addition to other data and rig parameters. 
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This makes the program easily adapted to any changes in the instrumentation. 
(See Appendix D for a listing of the program.) 

Oscillating Sliding Program 

The oscillating sliding program uses a digital signal to trigger data 
sampling. It is necessary to use the trigger to prevent data acquisition at 
the reversal points of travel where the friction output may be irregular and 
not truly representative of average values. The triggering is accomplished by 
using a cam on the test rig drive which closes a microswitch at the midpoint 
of disk travel. The microswitch applies a 5 V signal to the computer data 
acquisition Interface which triggers the computer to begin sampling for each 
cycle. At the sampling position, as seen in Fig. Kb), the disk is near 
maximum velocity and the friction force is typically stable. When the trigger 
signal is received, the computer acquires 25 friction and load data points at 
1 msec Intervals and stores them in a temporary array. The data, after 
eliminating the polarities, are averaged and stored in a second temporary 
array. The trigger is reset and the first temporary array Is cleared 
making the system ready for another trigger signal. The program will perform 
this procedure 14 more times on subsequent disk oscillations. After the 
second temporary array is filled with the 15 averaged data points, the values 
are again averaged and the friction coefficient and standard deviation are 
calculated. The final values are stored in the data file along with rotations 
per minute, specimen temperature and time. All arrays, except the permanent 
data file, are then erased and the program prepares for the acquisition cycle 
to repeat. 

As with the unidirectional program, the oscillating program samples data 
points at prescribed Intervals; however, due to the large number of points, the 
short period of time in which the points are acquired and the rapid interrupt 
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rate. It was necessary to make modifications to the software and some changes 
in the program. 

The software modification involved disabling the internal clock in the 
computer and using only software generated interrupts for program timing. 
Disabling the computer clock and software timer functions was necessary in 
order to prevent internal and software interrupts from occurring at the same 
time. Two interrupts received simultaneously causes the operating software to 
fail, data loss and possible hard drive corruption. 

The program changes involved using a BASIC array to store the final data 
values. This allows the data to be stored in the foreground, as opposed to 
being stored in the background when using a software generated array. This 
was done to isolate the final data values from data processing commands in the 
program. Finally, a "stall" loop was used to replace the disabled timer 
function. The "stall" loop acts as timing delay which uses a counting function 
in order to adjust the period of time between acquisition cycles. (See 
Appendix E for a listing of the program.) 

SUMMARY 

Computerized data acquisition, for high temperature tribometer 
experiments, has been proven very effective. The computer acquired data agrees 
well when compared to analog recordings performed simultaneously. By using a 
computer, the acquired data is automatically compensated for run-out induced 
variations and is stored as averaged values which are ready to be plotted, 
further manipulated and presented. This Increases convenience and productivity 
of the tribometer. It was found that a thorough understanding of the 
capabilities and limitations of the system software and the nature of the data 
signals from a test rig are essential to ensure successful data acquisition. 
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FRICTION FORCE 



TIME 


(a) UNIDIRECTIONAL MOTION. 



FIGURE 1. - TYPICAL FRICTION FORCE OUTPUTS FOR UNI- 
DIRECTIONAL AND OSCILLATING TESTS. 
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PIN & DISK SPECIMENS 
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MG. 2. - IIIGH-TEMPERA1URE PIN ON DISK TRIB0ME1ER. 




FIGURE 3. - INSTRUMENTATION SCHEMATIC BLOCK DIAGRAM INDICATES ALL MONITORED SIGNALS; TEST RIG PARA- 
METERS AND DATA INPUTS. 
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APPENDIX A 


CONFIGURATION TABLE K - INPUT/OUTPUT CONFIGURATION 



Denotes type, location and modes 
of input modules (ex: aim — ►analog 
i nput modul e) . 


SLOT 2: ADM1 , Range: -10. to 10.V 

SLOT 3: AOM1 , Range: 0 MO. B 1)10.B 2J10.B 3J10.B 4J10.B 
SLOT 4: DIM1 

SLOT 5: DOM1 

SLOT 6: AIM3, Gain: xl , SINGLE- ENDED 

SLOT 7: PCM2 

SLOT 8: AIM7 


Denotes I/O name, channel number 
resolution and gain of module inputs. 


CHANNEL NAMES - 
SLOT 6- 


FRCTNF 


AIM3 , SL 6, 
, A FP 7.2 

CH 

0, 12 

BIT, LOCxl , GLOxl 

LOAD 


AIM3, SL 6, 
, A FP 7.2 

CH 

1, 12 

BIT, LOCxl, GLOxl 

MTRSPD 


AIM3, SL 6, 
, A FP 7.2 

CH 

2, 12 

BIT, LOCxl, GLOxl 

FLOWIN 


AIM3 , SL 6, 
, A FP 7.2 

CH 

3, 12 

BIT, LOCxl, GLOxl 

FLOWOUT 


AIM3 , SL 6, 
, A FP 7.2 

CH 

4, 12 

BIT, LOCxl, GLOxl 

RMTMP 


AIM3, SL 6, 
, A FP 7.2 

CH 

8, 12 

BIT, LOCxl, GLOxl 

RELH 


AIM3, SL 6, 

CH 

9, 12 

BIT, LOCxl, GLOxl 


, A FP 7.2 


SLOT 8- 

TFURNAC3 : AIM7 , SL 8 , CH 1, 12 BIT, LOCxlOO, GLOxl 
, A FP 7.2 

TFURNAC1 : AIM7 , SL 8 , CH 2 , 12 BIT, LOCxlOO, GLOxl 
, A FP 7.2 

TFURNAC2: AIM7 , SL 8, CH 3, 12 BIT, LOCxlOO, GLOxl 
, A FP 7.2 

OILTEMP : AIM7, SL 8 , CH 5 , 12 BIT, LOCxlOO, GLOxl 
, A FP 7.2 

FCTRL1 : AIM7, SL 8, CH 6 , 12 BIT, LOCxlOO, GLOxl 
, A FP 7.2“ 

COLDJUNC : AIM7 , SL 8, COLD JUNCTION REFERENCE 
, A FP 7.2 
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MONITORED 
TEST BIG 
PARAMETERS 


TEST STATUS 


TEST IDENTIFIER 
AND 

CONDITIONS 


STORED VALUES 


F FRICTION: 1.05 Kg 

APPLYLOAD: 2.00 Kg _ STORED 

F COEFFICIENT: 0.52 DATA 

SPEC TEMP.: 1173.63 'C 

i— RIG PARAMETERS — 


MTRSPEED: 
FLOW IN: 
FLOW OUT: 
OILTEMP. : 
T FURN 1 : 
T FURN 2: 
T FURN 3: 
T FURN (l: 
RMTEMP . : 


1000.55 
4.95 
4.13 

34.39 

1164.91 

1196.55 
1136.51 
1196.55 

22.2 'C 


RPM 

'C 

'C 

52.3% 


'C 
'C 
'C 
REL H: 



FRICTION COEFFICIENT 


|— DATA POINT STATUS: - START: 12 : 26 : 22 

CURRENT: 162 FINISH: 13 : 47 : 32 

I— FINAL: 162 

i— TEST RUN: ADG. DAT 

PIN: ARCO A1203/S i C DISK: ARCO A1203/SiC 

— TEST INFO: 2 kg LOAD / 1000 rpm / 1200 C AIR / 81 min /7-14-39 

FIGURE A-1 . - UNIDIRECTIONAL MODE: SCREEN DISPLAY. 
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APPENDIX B 


SCREEN DISPLAYS AND DATA SUMMARIES 
Unidirectional Summary 


'FRCTN 

LOAD 

7C0EFF 

SPEED 

SPEC7ZM? 

TIME 

POINT 

O.Ol 

C .03 

0-23 

1002.66 

1133.13 

0.00 

0.00 

1.03 

2.36 

0.44 

934 . 13 

1151.43 

0.50 

1.00 

1.06 

2. 30 

0.46 

1303.66 

1176.07 

1.00 

2.00 

1.17 

2.06- 

0.57 

990.73 

1175.14 

1.50 

3.00 

1-13 

2.12 

0.54 

1CC3.66 

1173.41 

2.00 

4 .00 

1.09 

2.21 

0.49 

989.01 

1172.33 

2.50 

5 - 00 

1.03 

2.21 

0.49 

938.73 

1175.26 

3 . 00 

6.00 

1 . 12 

2 .09 

0.53 

1023. 2C 

1172.53 

3 . 50 

7.00 

1.20 

2.01 

0.60 

333.73 

1173.25 

4.00 

8 .00 

1.11 

2.33 

0.48 

993.90 

1173 . 43 

4 . SC 

8.00 

0.99 

2.23 

0.44 

1022.20 

1171.69 

5 .00 

10.00 

1.32 

1.96 

C.67 

979.24 

1177.02 

5. 50 

11 -OC 

1 . 13 

1.30 

0.66 

992.72 

1172.50 

6.00 

1 2 . 00 

1.21 

2.36 

0 .59 

992. 9C 

T?5 “> C, 

6 . 5G 

13.00 

1.09 

2.17 

0.50 

1008.55 

1171.71 

7 .00 

14.00 

1.18 

1.33 

0.64 

1003.55 

1174.37 

7 . 50 

15.00 

1 . 20 

1 .94 

0.62 

992.90 

1176.15 

8 .00 

16.00 

1.3 2 

1.73 

0.75 

ICC 3 . 6 c 

1172.80 

8 . 50 

17.00 

1 , 13 

2.26 

0 .43 

979 . 24 

.1172.43 

9.00 

13.00 

1.03 

2.22 

0.46 

1003.66 

1172.60 

5.50 

19 .OC 

1.05 

2 . 19 

0-42 

1003.55 

1172.50 

10 . OC 

20 .OC 

1.0C 

2.35 

0.43 

989.01 

1176.15 

10. 5C 

21.00 

1.24 

1.75 

0.71 

1CC3.65 

1172.4?- 

11. OC 

22.00 

1.03 

2.24 

0 . 46 

99B.73 

1173.25 

11.50 

23 .OC 

0.02 

0.01 

3 .00 

1042.74 

1172.60 

12.00 

24.00 

0.02 

0.01 

1.40 

1003 . 56 

1173.43 

12-50 

25.00 

C.C2 

0.01 

2.33 

1003.66 

1177.02 

13.00 

26.00 

1. 12 

2.06 

c.s; 

979.24 

1172.60 

13.50 

27. OC 

1.03 

2.04 

0.53 

1003 .55 

1175 .24 

14.00 

28.00 

1-13 

2.03 

0.53 

979.24 

1171.71 

14.50 

25.00 

1.06 

2.03 

0.52 

1CC2 .66 

1172.50 

15.00 

30.00 

1.13 

2.04 

0.55 

382 .80 

1175 .25 

15.50 

31.00 

1.00 

2.06 

0.49 

1013,32 

1172.60 

16.00 

32.00 

1.C3 

2.05 

0.50 

993.78 

1174.36 

16.50 

33 .OC 

1.08 

2.03 

C.53 

893.90 

1170.32 

17.00 

24.00 

1.05 

2.06 

C .51 

1C03.66 

1172.60 

17.50 

35.00 

1.02 

2.07 

0.49 

1CC3 .66 

1175.26 

13.00 

3 5.00 

1.07 

1.99 

0.54 

1008.55 

1172.60 

13.50 

37.00 

1 . 10 

2.CC 

0.55 

828.01 

1176 . 16 

19.00 

28.00 

1.02 

2.02 

0.30 

1C18.32 

1174.37 

18.50 

25.00 

0 . 99 

2.02 

0.43 

1008.55 

1173.43 

20.00 

40.00 

1.10 

2.00 

0.33 

ICC 3 . St 

1176.22 

20.50 

41.00 

1.10 

2 .02 

0.55 

998 .73 

1173.4? 

21.00 

42 .00 

1.00 

2.01 


992 . 90 

1176.19 

21.50 

43.00 

1.11 

1.99 

0.56 

1013.32 

1172.60 

22.00 

44.00 

1.07 

2 .00 

0.53 

1CCS.55 

1172.60 

22.50 

45.00 

1.01 

2.02 

0.30 

993.90 

1173.55 

23.00 

45.00 

1.04 

2.02 

0.51 

892,73 

1172.60 

22.50 

47.00 

1.06 

1.93 

0.54 

829.01 

1174.44 

24.00 

48. CO 

1.02 

2.00 

0.51 

823.90 

1172.60 

24.50 

49.00 

1.14 

1,99 

0.57 

1023.20 

1172.50 

25.00 

- SC. 00 

1.02 

2.00 

0.51 

969.01 

1176.21 

25.50 

51. CO 

1.00 

1.99 

0 . 30 

998.73 

1172.60 

26.00 

52.00 

1.10 

2.00 

0.25 

1CC3.66 

1174 . 44 

26.50 

53. OC 

1.04 

2.00 

0.52 

1003.66 

1171.71 

27.00 

54.00 

1.03 

1 . 52 

0.55 

1C03.66 

1172.60 

27.50 

5 5.00 

1 . 11 

1.99 

0.56 

1C03.66 

1173.32 

28. OC 

56.00 

1.01 

1.99 

0.51 

1037.55 

1172.62 

28 . 50 

57. OQ 

1.02 

1.99 

0.51 

993.90 

1173.32 

29.00 

58.00 

1.11 

1.93 

0.56 

879.24 

1172 . 67 

2? . 3 3 

59.00 


Unidirectional Mode: Data Summary 

Print-out of stored data: friction force, 
load force, friction coefficient, specimen 
rotations per minute, specimen temperature 
elapsed time and data point number. 
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Oscillating Summary 


MONITORED 
TEST RIG 
PARAMETERS 


STORED VALUES — 

F FRICTION: 0.12 Kg 
APPLY LOAD: 0.25 Kg _ ST0RED 

F COEFFICIENT: 0.47 DATA 

SPEC TEMP. : 870.30 'C 

RIG PARAMETERS — 

MTRSPEED: 134.31 rpm 

FLOW IN: 3.08 

FLOW OUT: 3.81 

OILTEMP. : 29.39 'C 

T FURN 1: 844.23 'C 

T FURN 2: 890.63 'C 

T FURN 3: 844.23 'C 

T FURN 4: 902.11 'C 

RMTEMP : 22.9 'C REL H: 22.1% 



TEST STATUS 



TEST IDENTIFIER 
AND 

CONDITIONS 


DATA POINT STATUS: CYC'S S/S(Hz): TRIGGER START: 11 : 55 : 29 

CURRENT: 360 0.224 CYCLE: 15 FINISH: 15 : 3 : 41 

FINAL: 360 \ I 

TEST RUN: ACM. DAT i J 

PIN: ARCO A 1203 W/SiC WISKERS 1 DISK: 1 718 

TEST INFO: 4/11/89 / 141 RPM .23 Hz / 250. LOAD / 900 C IN AIR / 180 min 

\ I 


\ 

OSCILLATION- 1 

SPEED 


i 

i 

i 


•-SAMPLING TRIGGER 


COUNTER 


FIGURE B-1 . - OSCILLATING MODE: SCREEN DISPLAY. 
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FrRCTN 

LOAD 

FCOEFF 

SPEED 

SPEETEMP 

TIME 

POINT 

0.09 

0.25 

0.33 

162.50 

0.00 

0.50 

1 .00 

0.05 

0.07 

0.75 

189 '.43 

871.98 

1.00 

2.00 

0.06 

0.11 

0.53 

163.61 

867.05 

1 .50 

3.00 

0.04 

0.08 

0.47 

134.31 

869.97 

2.00 

4 . 00 

0.10 

0.85 

0.23 

139.19 

870.95 

2.50 

5 . 00 

0.10 

0.85 

0.39 

134.31 

871 .98 

3.00 

6 . 00 

0.10 

0.83 

0.42 

189.43 

870.95 

3.50 

7.00 

0.10 

0.83 

0.43 

124.31 

E 71 .98 

4.00 

8 . 00 

0.10 

0.24 

0.42 

148.96 

870.95 

4-50 

9 . 00 

0. 10 

0.84 

0.41 

173.23 

E 7 C .95 

5.00 

10.00 

0.10 

0.85 

0.29 

129.43 

870.95 

5.50 

1 1 . 00 

0.10 

0.26 

0.28 

148.96 

870 .95 

6.00 

12.00 

0. 10 

0.26 

0.27 

189.43 

870.95 

6 . 50 

13.00 

0 . 1 0 

0.26 

0.23 

124.31 

869.97 

7 . 00 

14.00 

0.09 

0.85 

0.27 

168.50 

870.95 

7 . 50 

1 5 . 00 

0.09 

0 . 85 

0.25 

153.73 

570.95 

S . 00 

1 6 . 00 

0.09 

0.23 

0.27 

124.21 

870,93 

8.50 

17.00 

0.07 

0.19 

0.29 

124.31 

870.95 

9.00 

i a . oo 

0.09 

0 . 24 

0.29 

179 . 87 - 

870 . 9 1 

9.50 

19.00 

0 . 10 

0.24 

0.4 1 

152 . E 5 

869.91 

10.00 

20 .00 

0 . 1 0 

0.85 

0.39 

173.23 

870.89 

10.50 

21 .00 

0.09 

0.84 

0 . 2 S 

124.31 

870.87 

1 1 . 00 

22 . 00 

0. 10 

0.25 

0.40 

184.54 

870.87 

11.50 

22 . 00 

0.09 

0.25 

0.23 

189.43 

870 . S 7 

12.00 

24 . 00 

0 . 03 

0.25 

0.23 

139 '. 19 

870 . S 7 

12.50 

25 . 00 

0 . 03 

0.25 

0.24 

124.54 

870.57 

1 2 . 00 

2 6 . 00 

0.09 

0.85 

0.26 

134.31 

870 . 57 

13.50 

27 . 00 

0.09 

0.85 

0.26 

129,43 

B 70. 87 

14.00 

29 . 00 

0.08 

0.25 

0.23 

124.31 

670.97 

14.50 

29 . 00 

0 . 09 

0.85 

0.24 

129.19 

870 . S 7 

15.00 

20.00 

0 . OS 

0.25 

0.24 

162.61 

870 . 57 

1 5 . 50 

31 .00 

0.09 

0.25 

0.26 

134.31 

870.57 

16.00 

32 . 00 

0 . 09 

0.25 

0.25 

129.43 

670 . 57 

16.50 

33 . 00 

0 . 09 

0.85 

0.24 

139.19 

670. S7 

17.00 

24 . CO 

0 . 09 

0.86 

0.25 

153.85 

570 . 87 

17.50 

35 . 00 

o.oe 

0.86 

0.32 

143.96 

870. E7 

13.00 

36 , 00 

0 . 09 

0.25 

0.34 

144.08 

870.57 

13.50 

37 . CO 

0 . 09 

0.25 

0.36 

129.43 

670.57 

19.00 

38 . 00 

0.09 

0.25 

0.27 

124.21 

870.57 

19.50 

39.00 

0.09 

0.25 

0.25 

189.43 

870.57 

20 . CO 

40.00 

0.09 

0.25 

0.27 

163.61 

e70.S7 

20 . 50 

4 1 . 00 

0 . 09 

0.26 

0.25 

189.43 

870.93 

.2 1 . 00 

42 . 00 

0 . 08 

0.85 

0.23 

144.00 

870.95 

21 .50 

43.00 

0 . OS 

0.25 

0.34 

153.85 

870.95 

22 . CO 

44 . 00 

0 . 08 

0.25 

0.33 

124.21 

870.95 

22.50 

45.00 

0.09 

0.25 

0.26 

184.54 

870.95 

23 . CO 

4c . 00 

0.09 

0.25 

0.27 

129.43 

870.95 

23.50 

47.00 

0.09 

0.25 

0.37 

178.87 

670.95 

24.00 

42 . 00 

0.09 

0.85 

0.37 

124.21 

870.95 

24.50 

49.00 

0 . 09 

0.26 

0.26 

134.21 

870.95 

25.00 

50 . 00 

0.09 

0.85 

0.36 

144. oe 

869. 93 

25 . 50 

5 1 . 00 

0 . 09 

0.85 

0.36 

173.28 

870.95 

26.00 

52 . 00 

0.09 

0.85 

0-36 

189.43 

870.95 

26.50 

53 . 00 

0.08 

0.86 

0.22 

129.19 

870 . 95 

27 . 00 

54 . 00 

0.08 

0.85 

0.22 

144.08 

671 .92 

27 . 50 

55 . 00 

o.oe 

0.25 

0.33 

144.08 

870.95 

29 . 00 

56 . 00 

0.09 

0.85 

0.24 

189.43 

871.92 

£9 . 50 

57.00 

0.09 

0.86 

O . 34 

173.3E 

871 .92 

29 . 00 

52 . 00 

0 _ r, g 

0.2S 

O . 23 

12^-31 

571 ,«?2 

2° . 5<’> 

50 , OO 


Oscillating Mode; Data Summary 

Print-out of stored data: friction force, 

load force, friction coefficient, motor 
rotations per minute, specimen temperature 
elapsed time and data point number. 
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APPENDIX C 


When employing any data acquisition system to dynamic signals, such as 
those produced by a trlbometer, timing considerations can become very 
Important. For example, consider the case of measuring the friction 
coefficient from a pin-on-disk apparatus. To do this, the acquisition system 
must measure both a friction force and load force, the ratio of the two being 
the desired result. Since computer data acquisition systems, such as the one 
referred to in this paper, sample data sequentially rather than simultaneously 
the friction coefficient calculated is an average value rather than the exact 
value. Timing calculations are needed to ascertain whether the measured value 
is meaningful and whether it is likely to be close to the value measured by an 
analog device such as an oscilloscope. 

For our system, it takes ~28 psec to sample an analog signal and an 
additional 10 psec before the computer is ready to acquire the next signal. 
Therefore, the acquisition of the friction and load force signals, needed to 
calculate a friction coefficient, requires 66 psec. Under typical test 
conditions of 1000 rpm disk speed, the disk will rotate less than 1° between 
sampling the friction force and sampling the load. Since a typical wear scar 
diameter on the pin is at least 1 mm, or 2.24° of the wear track, the load 
force is sampled at approximately the same wear area on the disk specimen as 
the friction force (see Fig. C-2 in this appendix). Therefore, the friction 
coefficient calculated from the measured forces yields a meaningful result and 
does in fact coincide with values measured by an oscilloscope. 
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SAMPLING OVERLAP 


RIDER PIN LOCATION 
FOR FRICTION FORCE 
SAMPLING — 

FRICTION 
FORCE SAMPLED 



-RIDER PIN LOCATION 
FOR LOAD FORCE 
SAMPLING 

- LOAD FORCE 
SAMPLED 
SETTLING TIME 


0 50 100 

TIME, msec 


FIGURE C-1. - TYPICAL RIDER PIN LOCATION DURING DATA SAMPLING. 
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APPENDIX D 


UNIDIRECTIONAL PROGRAM LISTING 


10 COLOR 11,0,0 
20 CLS 

30 GOSUB 3620 

40 REM: PIN-ON-DISK UNIDIRECTIONAL <POD.UNI> 

50 CLS 

60 LOCATE 10,30: PR I NT "WELCOME TO POD. UNI" 

70 LOCATE 12,31: PRINT "WRITTEN CDB 8817 11" : LOCATE 5,70: PR I NT "UNI DIRECTIONAL" 

80 LOCATE 25,2 : PRINT "PLEASE WAIT" 

90 FOR X=1 TO 5000 
100 NEXT X 
110 CLS 

120 LOCATE 5, 34: PRINT "DIRECTIONS" 

130 LOCATE 7,5: PRINT"THIS PROGRAM IS DESIGNED TO GATHER TEST DATA FROM THE HIGH 
TEMPERATURE" 

140 LOCATE 8,5: PRINT"TRIBOMETER. IT WILL MONITOR THE TEST RIG DURING HEATING AND 
BEGIN" 

150 LOCATE 9,5: PRINT"DATA ACQUISITION UPON COMMAND. IT WILL RECORD FRICTION" 

160 LOCATE 10, 5 : PRINT" FORCE AND LOAD IN KG'S, MOTOR SPEED, SPECIMEN AND FURNACE 
TEMPERATURES . " 

170 LOCATE 11,5: PRINT"THIS PROGRAM WILL ALSO PROVIDE TEST RIG STATUS: OIL FLOW, 
OIL TEMPERATURE," 

180 LOCATE 12,5: PR I NT "CURRENT DATA POINT AND ROOM TEMPERATURE AND HUMIDITY." 

190 LOCATE 19,5: PRINT"ENTER TEST INFORMATION AS REQUESTED; (NOTE: TO IDENTIFY A 
TEST FILE" 

200 LOCATE 20,5:PRINT"A FILE NAME MUST EXIST-EX . : FOR TEST ***; THE FILE IS ***.D 
AT;" 

210 LOCATE 25,2: INPUT"ARE YOU READY TO CONTINUE (Y OR N):";A$ 

220 IF A$="Y" THEN 240 
230 GOTO 210 
240 CLS 

250 LOCATE 5 , 2 : INPUT "ENTER THE TEST RUN DATA FILE NAME (***.DAT): " ; TPF$ 

260 CLS 

270 LOCATE 5 , 5 : PRINT "TEST RUN: ";TPF$ 

280 LOCATE 10 , 2 : INPUT"IS THE FILE NAMfe CORRECT (Y OR N) : ";B* 

290. IF B$ = "Y" THEN 360 
300 IF B$= "N" THEN 320 
310 GOTO 280 
320 CLS : TPF$ = " " 

330 LOCATE 3,2: PRINT"FILE NAME HAS BEEN DELETED. PLEASE RE-ENTER:" 

340 BEEP 
350 GOTO 250 
360 CLS 

370 LOCATE 5 , 2 : PRINT "ENTER ANY TEST INFORMATION YOU WANT RECORDED." 

380 LOCATE 7 , 10 : INPUT"PIN MATERIAL & I.D.#: ";PM$ 

390 LOCATE 9 , 10 : INPUT "DISK MATERIAL & I.D.#: ";DM$ 

400 LOCATE 11 , 10 : INPUT"TEST INFORMATION ( IE: TEMP., LOAD., ETC.): " ; INFO$ 

410 LOCATE 25, 2: INPUT" IS THE TEST INFORMATION CORRECT (Y OR N) : ";C$ 

420 IF C$= "Y" THEN 500 
430 IF C$ = "N" THEN 450 
440 GOTO 410 

450 DM$=" " :PM$=" " : INFOS-" " 

460 CLS 

470 LOCATE 3,2: PRINT"TEST INFORMATION HAS BEEN DELETED. PLEASE RE-ENTER." 

480 BEEP 
490 GOTO 370 
500 CLS 

510 LOCATE 5,2: INPUT" ENTER THE NUMBER OF DATA POINTS FOR THE TEST: ";N 
520 DIM POINTS ( N , 7 ) 

530 LOCATE 7 , 2 : INPUT "ENTER THE TIME INTERVAL IN SECONDS: ";T% 

540 LOCATE 25 , 2 : INPUT"IS THE NUMBER OF DATA POINTS CORRECT (Y OR N) : ";D$ 

550 IF D$= "Y" THEN 640 
560 IF D$ = "N" THEN 580 
570 GOTO 540 
580 N=0 


23 



590 DIM POINTS (0.0) 

600 CLS 

610 LOCATE 3,2: PRINT” THE NUMBER OF DATA POINTS HAS 3EEN DELETED PLEASE RE-ENTER. 

ii 

620 BEEP 
630 GOTO 510 
640 CLS 

650 LOCATE 3,5; PRINT ,f TEST RUN: " ;TPF$ 

660 LOCATE 6 t 5 : PRINT "DATA FILE: ":TPF$ 

670 LOCATE 10 , 5 : PRINT"PIN MATERIAL: " ; PM$ 

680 LOCATE 11 , 5 : PRINT"DISK MATERIAL: " : DMS 
690 LOCATE 13,5: PRINT"TEST INFORMATION: INFOS 

700 LOCATE 16,5: PRINT"NUMBER OF DATA POINTS: ";N 
710 LOCATE 17,5: PRINT"TIME INTERVAL: " : T% 

720 LOCATE 25 , 2 : INPUT" ARE THE VALUES AND INFORMATION CORRECT (7 OR N): ":E$ 

730 IF E$="Y" THEN 970 
740 IF E$ = M N" THEN 760 
750 GOTO 720 
760 CLS 

770 GOSUB 3180 
730 CLS 

790 LOCATE 1,20: PRINT "ALL TEST DATA HAS BEEN DELETED." 

300 BEEP 

810 LOCATE 9,2: INPUT "DO YOU WANT TO RE-ENTER NEW DATA !Y OR N): " : FS 

820 IF FJ="Y" THEN 240 

830 IF FS= "N" THEN 850 

840 GOTO 810 

850 CLS 

860 LOCATE 5 , 12 :PRINT"ENTER THE NUMBER OF THE FUNCTION YOU WANT TO PERFORM." 

870 LOCATE 8 f 15 : PRINT" 1 . GO TO DIRECTIONS" 

880 LOCATE 10 , 15 : PRINT"2 . RE-ENTER TEST DATA" 

890 LOCATE 12 , 15 : PRINT" 3 . MONITOR MODE" 

900 LOCATE 14 t 15 : PRINT"4 . QUIT" 

910 LOCATE 16,2: INPUT"ENTER NUMBER: ":G 

920 IF G=i THEN 40 

930 IF G=2 THEN 240 

940 IF G=3 THEN 970 

950 IF G=4 THEN 3580 

960 GOTO 910 

970 CLS 

980 CALL I NIT 

990 REM: INITIATES MONITOR FUNCTIONS AND DATA TIME INTERVAL 

1000 LOCATE 23,2: PRINT "PRESS <SPACEBAR> TO START MONITOR FUNCTION. " 

1010 I $=INKEY$ : IF IS*" " THEN 1020 ELSE 1000 
1020 CP=CP+1 

1030 IF CP = 1000 THEN 1460 
1040 IS^INKEYS : IF I$=" " THEN 1560 
1050 IF I $ = CHR$ (64) THEN 3580 
'l060 REM: ACCESS TO MONITOR VALUES 
1070 CALL ANREAD’ ( "FLOWIN" ,FIN, 0 ) 

1080 CALL ANREAD ’ ( "FLOWOUT" , FOT , 0 ) 

1090 CALL ANREAD’ ("OILTEMP", OTP, 105 
1100 CALL ANREAD’ ( "TFURNACl" , TFURN1 , 16) 

1110 CALL ANREAD’ ( "TFURNAC2" , TFURN2 , 16) 

1120 CALL ANREAD' ( "TFURNAC3" , TFURN3 , 16) 

1130 CALL ANREAD’ ( "FCTRL1" , TFURN4 , 16) 

1140 CALL ANREAD’ ( "MTRSPD" , SPD , 0 ) 

1150 CALL ANREAD’ ( " RMTMP ", RTP , 0 ) 

1160 CALL ANREAD’ { "RELH" , RH, 0 ) 

1170 FOR X=1 TO 5000 :NEXT X 
1180 REM: SCREEN DISPLAY 
1190 CLS 

1200 LOCATE 10,50: PR I NT "MONITOR MODE" 

1210 LOCATE 1,4: PRINT”*** STORED VALUES***" 

1220 LOCATE '2,3: PRINT"F FRICTION: " : LOCATE 2,22 :PRINT"Kg" 

1230 LOCATE 3,3: PRINT" APPLYLO AD : " : LOCATE 3,22 :PRINT"Kg" 
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1240 LOCATE 4,3:PRINT"F COEFFICIENT: " 

1250 LOCATE 5 , 3 : PRINT”SPEC TEMP: " : LOCATE 5 , 22 : PRINT" ’ C" 

1260 TSPEC- ( TFURN1+TFURN2+TFURN3+TFURN4 ) / 4 
1270 LOCATE 5,14:PRINT USING" ####.##"; TSPEC 
1280 LOCATE 6 , 4 : PRINT"***RIG PARAMETERS***" 

1290 LOCATE 7,3: PRINT"MTRSPEED : " ; " RPM" 

1300 SPD=SPD* 1000 

1310 LOCATE 7,14: PRINT USING "####.##" ;SPD 

1320 LOCATE 8 , 3 : PRINT "FLOW IN : " : LOCATE 8, 17: PRINT USING "#.##"; FIN 
1330 LOCATE 9 , 3 : PRINT"FLOW OUT: ": LOCATE 9,17:PRINT USING "#.##": FOT 
1340 LOCATE 10,3: PRINT "01 LTEMP : " ;OTP;" ( C" 

1350 LOCATE 11, 3 : PRINT "T FURN 1: ’C":LOCATE 11 ,14: PRINT USING"#### . ##" 

; TFURN1 

1360 LOCATE 12,3: PRINT"T FURN 2: T C":LOCATE 12, 14: PRINT USING"####.##" 

; TFURN2 

1370 LOCATE 13,3:PRINT"T FURN 3: 'C": LOCATE 13,14:PRINT USING"####.##" 

; TFURN3 

1380 LOCATE 14,3:PRINT"T FURN 4: ' ' C M : LOCATE 14,14:PRINT USING"####,##" 

; TFURN4 

1390 RTP=RTP* 10 

1400 LOCATE 15 , 3 : PRINT "RMTEMP LOCATE 15.11:PRINT USING"### :RTP : LOCATE 15.17 
: PRINT"’ C" 

1410 RH=RH* 10 

1420 LOCATE 15 . 21 : PRINT"REL H: " : LOCATE 15,23:PRINT USING "##. 4 RH : LOCATE 15.33 
: PRINT 

1430 LOCATE 22 , 2 : PRINT "PRESS <SPACEBAR> FOR DATA ACQUISTION." 

1440 LOCATE 23 , 10 : PRINT"PRESS <£> TO ABORT FUNCTION." 

1450 GOTO 1020 

1460 REM: PROGRAM CROSSROAD 

1470 CLS 

1480 LOCATE 10 , 5 : PRINT"* * * PRESS ***" 

1490 LOCATE 12,5:PRINT"R TO RETURN TO MONITOR MODE." 

1500 LOCATE 14,5: PRINT"A FOR DATA ACQUISITION MODE." 

1510 LOCATE 16,5: PRINT"Q TO QUIT." 

1520 I$=INKEY$ : IF IS*"Q M THEN 3580 

1530 IF I$= "A" THEN 1570 

1540 IF IS«"R" THEN 1550 

1550 GOTO 1010 

1560 REM : DATA ACQUISITION 

1570 CLS 

1580 CLS : KEY OFF : SCREEN 2:WIDTH 80: GOSUB 3660 
1590 GOSUB 3270 

1600 LOCATE 2 3 , 2 : PRINT" PRESS <SPACEBAR> TO START DATA ACQUISITION." 

1610 I$-INKEY$ : IF IS = " " THEN 1620 ELSE 1600 
1620 CALL CLOCKREAD' (HR1%,MIN1%,SEC1%) 

1630 LPRINT "TEST RUN: " ; TPF$ 

1640 LPRINT" FFRCTN LOAD FCOEFF SPEED SPECTEMP TIME POI 

NT" 

1650 LOCATE 2 3, 2: PRINT" 

1660 X ! =0 

1670 X ! =TIMER 

1680 CALL INIT 

1690 CALL INTON' (1," SEC") 

1700 LOCATE 17 , 48 : PRINT "DATA BEING SAMPLED!” 

1710 CALL ANIN ' ( "SAMPTS%" , 10 . . "LOAD , FRCTNF" , 1 , "CLOCK" ) 

1720 STAT%=0 

1730 CALL STATUS 1 ("CLOCK ", ST AT%) 

1740 IF STAT°/o <> 0 GOTO 1730 
1750 CALL INTOFF 

1760 LOCATE 17, 48: PRINT" " 

1770 MLOAD=0 : SLOAD=0 :MFRCTNF=0 :SFRCTNF=0 

1780 CALL MEANDEV 1 ( "SAMPTS%" , 1 , MLOAD , SLOAD , 1 . , 10 . , 0 ) 

1790 CALL MEANDEV’ ( "SAMPTS%" , 2, MFRCTNF , S FRCTNF , 1 . ,10. ,0) 

1800 MU=0 

1010 FOR AVG 35 1 TO 10 
1820 L=0 : F=0 : MUL=0 
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to w tu nj ro to nj to 


1830 CALL ARGETVAL’ ( "SAMPTSV\ AVG f 1 , L t 0) 

134Q CALL ARGETVAL T ( "SAMPTS%" , AVG , 2 , F , 0 ) 

1850 L~ABS ( L ) : F= ABS ( F ) 

1860 MUL=F/L 
1870 MU=MU+MUL 
1880 NEXT AVG 

1890 LD=ABS (MLOAD ) : VA=ABS ( MFRCTNF ) 

1900 MU=MU/10 

1910 CALL ARDEL * ( "SAMPTS%" ) 

1920 I$ = INKEY$ : IF 1$="®" THEN 2670 
1930 REM: DATA VALUE ACCESS 
1940 CALL ANREAD ’ ( "MTRSPD" f SPD , 0 ) 

19 50 CALL ANREAD 1 { "FLOWIN’' , FIN , 0 ) 

1960 CALL ANREAD ' ( "FLOWOUT” , FOT , 0 } 

1970 CALL ANREAD' ("OILTEMP", OTP, 10) 

1980 CALL ANREAD’ ( "TFURNAC1”, TFURN1 , 16) 

1990 CALL ANREAD’ ( "TFURNAC2” , TFURN2 , 16? 

2000 CALL ANREAD' < "TFURNAC3 ", TFURN3 , 16) 

2010 CALL ANREAD ' ( "FCTRLl" » TFURN4 , 15 > 

2020 CALL ANREAD * ( "RMTMP" , RTP . 0 ) 

2030 CALL ANREAD’ r , ’RELH ,, ,RH.O) 

2040 TSPECMTFURN1+TFURN2^TFURN3+TFTJRN4 >/4 

2050 SPD=3PD* 1000 

2060 POINTS ( LPOLD . 0 ) =MU 

2070 POINTS (LPOLD , 1 ) =VA 

2080 POINTS ( LPOLD , 2 > =LD 

2090 POINTS (LPOLD, 3 )=SPD 

2100 POINTS ( LPOLD , 4 ) ®TSPEC 

2110 POINTS ( LPOLD , 6 ) =TFURN2 

2120 POINTS ( LPOLD , 7 ) =TFURN4 

2130 POINTS ( LPOLD , 5 ) -TIME 

2140 REM: SCREEN DISPLAY ACQUISITION 

2150 LOCATE 1 , 4 : PRINT" ***STORED VALUES*** " 

2160 LOCATE 2,3:PRINT"F FRICTION: ": LOCATE 2,22: PRINT "Kg” 

2170 LOCATE 2,I5:PRINT USING”### .##"; VA 

2180 LOCATE 3,3: PRINT n APPLYL0AD : LOCATE 3.22: PRINT "Kg” 

2190 LOCATE 3,15:PRINT USING"### .1#"; LD 
2200 LOCATE 4,3:PRINT”F COEFFICIENT: " 

2210 LOCATE 4,18:PRINT USING” ##.##"; MU 

2220 LOCATE 5 , 3 : PRINT”SPEC TEMP: ":LOCATE 5,22: PRINT” ’ C” 

230 LOCATE 5,14:PRINT USING” ####.##"; TSPEC 
240 LOCATE 6 , 4 : PRINT” ***RIG PARAMETERS***" 

250 LOCATE 7,3: PRINT”MTRSPEED : RPM" 

260 LOCATE 7,14:PRINT USING”#### . ##" ;SPD 

270 LOCATE 8 , 3 : PRINT”FLOW IN: " : LOCATE 8, 17: PRINT USING” #.##"; FIN 

280 LOCATE 9 , 3 : PRINT” FLOW OUT: LOCATE 9, 17: PRINT USING" #.##”; FOT 

290 LOCATE 10,3: PRINT"OILTEMP : ” ; OTP ; ” ’C” 

300 LOCATE ll,3:PRINT n T FURN 1: ’C”:LOCATE 11 ,14: PRINT USING"####.##" 

; TFURN1 

2310 LOCATE 12,3:PRINT"T FURN 2: 'C":LOCATE 12,14:PRINT USING"####.##" 

;TFURN2 

2320 LOCATE 13,3:PRINT"T FURN 3: ' C" : LOCATE 13.14:PRINT USING"####.##” 

;TFURN3 

2330 LOCATE 14,3:PRINT”T FURN 4: r C":LOCATE 14.14:PRINT USING"####.##" 

;TFURN4 

2340 RTP=RTP* 10 

2350 LOCATE 15 , 3 : PRINT”RMTEMP : " : LOCATE 1 5 , 11 : PRINT USING" ###.#"; RTP : LOCATE 15,17 
: PRINT” ’C” 

2360 RH=RH* 10 

2370 LOCATE 15,21: PRINT”REL H: LOCATE 15,28:PRINT USING "##.#"; RH : LOCATE 15,33 

: PRINT 

2380 LOCATE 19 , 50 : PRINT "PRESS <@> TO ABORT TEST RUN.” 

2390 LOCATE 17,3: PRINT "DATA POINT STATUS:” 

2400 LOCATE 18 , 3 : PRINT "CURRENT : LPOLD 

2410 LOCATE 19 , 3 : PRINT" FINAL : ";N 
2420 LOCATE 20,3: PRINT”TEST RUN: ";TPF$ 
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2430 LOCATE 21 , 3 : PRINT"PIN: DISK: " ; DM$ 

2440 LOCATE 22,3: PRINT"TEST INFO: " ; INFOS 

2450 LOCATE 14,56: PRINT"TIME >" 

2460 LOCATE 1 , 50 : PRINT "FRICTION COEFFICIENT” 

2470 LOCATE 3 , 35 : PRINT"2 . 0" 

2480 LOCATE 5 , 3 5 : PRINT" 1 . 6" 

2490 LOCATE 7 , 35 : PRINT"1 . 2” 

2 500 LOCATE 9 , 3 5 : PRINT"0 . 8 " 

2510 LOCATE 11 , 3 5 : PRINT"0 . 4 " 

2520 LOCATE 13 , 35 : PRINT"0 . 0" 

2530 LPRINT USING" !####!#.##" ;VA; LD ;MU : SPD : TSPEC ; TIME ; LP 

2540 GOSUB 3480 

2550 IF LP=N THEN 2670 

2560 TRP=N-LPOLD 

2570 TRF=60/TC 

2580 TTRM=TRP/TRF 

2590 LOCATE 17 , 30 : PRINT "TIME REMAINING" 

2600 LOCATE 18,30:PRINT USING"! ##.#": TTRM: LOCATE 13 , 2 7 : PRINT "MINUTES" 

2610 WHILE TIMER < X!+T% : WEND 
2620 TTXP == TTXP + T% 

2630 TIME^TTXP/60 
2640 LP=LP+1 
2650 LPOLD=LP 
2660 GOTO 1660 

2670 REM: DATA COMPLETET I ON AND SHUTDOWN 
2680 CALL CLOCKREAD ’ ( HR27. ,MIN2%, SEC2% ) 

2690 LOCATE 19 , 50 : PRINT" 

2700 LOCATE 23,2: PRINT"DATA ACQUISITION COMPLETE. SHUT RIG DOWN. PRESS <R> TO CO 
NTINUE. 

2710 I$=INKEY$ : IF I$="R" THEN 2740 

2720 BEEP 

2730 GOTO 2700 

2740 CALL INIT 

2750 ARNS=" DAT APTS ! " 

2760 SZ=N+1 

2770 CALL ARMAKE ’ ( ARNS , SZ , 8 ) 

2780 CALL ARLABEL 1 ( ARN$ , INFOS ) 

2790 LOCATE 16 , 60 : PRINT"PRESS <P> TO PRINT" 

2800 LOCATE 17 , 60 : PRINT" <D> TO PRINT DATA" 

2810 LOCATE 18 , 60 : PRINT"OR <Q> TO QUIT." 

2820 LOCATE 23,2:PRINT" 

tr 


2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

NT" 

3010 

3020 

3030 

3040 

3050 


THEN 2890: 
2950: 
END: 


REM: PRINT ALL 

REM: PRINT DATA 
REM: QUIT 


LPRINT CHR$ ( 12 ) 

I$= INKEY$ 

IF I$="P” 

IF I$= "D" THEN 
IF I$="Q" THEN 
GOTO 2840 

LOCATE 16,60: PRINT" " 

LOCATE 17, 60: PRINT" " 

LOCATE 18, 60: PRINT" " 

LOCATE 17,55: PRINT "START : " ;HR1%; " : " ;MIN1%; " : " ; 
LOCATE 18,54: PRINT "FINISH : "HR2%; " : " ;MIN2%; " : " : 
GOSUB 3690 
LOCATE 16, 60 .-PRINT" 

LOCATE 17, 60: PRINT" " 

LOCATE 18, 60: PRINT" 

LOCATE 17,55: PRINT"START: " ;HR1%; " ;MIN1%; " : " : 
LOCATE 18 , 54 : PRINT "FI NISH: "HR2*/- ; " : " ; MIN2% ; " : " ; 
LPRINT" FFRCTN LOAD FCOEFF SPEED 


TP= 0 : AP= 1 

MU=POINTS ( TP , 0 ) 
VA=POINTS ( TP , 1 ) 
LD=POINTS ( TP , 2 ) 
SP=POINTS ( TP , 3 ) 


: CALL ARPUTVAL T ( ARN$ , AP , 1 , MU ) 
:CALL ARPUTVAL * ( ARNS f AP , 2 ♦ VA ) 
: CALL ARPUTVAL T ( ARN$ , AP , 3 t LD ) 
:CALL ARPUTVAL T ( ARNS , AP , 4 f SP ) 


SEC1% 

SEC2% 


SEC1*; 

SEC 2 % 

SPECTEMP 


TIME 


POI 
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3060 TS=POINTS ( TP . 4 ) 


3070 TIME= POINTS ( TP, 5 ) 


3080 

3090 


: CALL ARPUTVAL ' ( ARN$ , AP, 5 , TS ) 

: CALL ARPUTVAL 1 (ARNi.AP, 6, TIME) 
: CALL ARPUTVAL’ <ARN$,AP, 7, FI) 
------ - ; CALL ARPUTVAL ’ ( ARN$ , AP , 8 . F2 ) 

3100 LPRINT USING’’##### t# . ##" ; VA ; LD ; MU; SP ; TS • TIME * TP 
3110 IF TP=N THEN 3150 ’ ‘ 

3120 TP=TP+1 
3130 AP=AP+ 1 


FI =P0INTS ( TP , 6 ) 
F2= POINTS ( TP , 7 } 


3140 GOTO 3020 

3150 CALL ARWRITE’ (ARN$ t TPF$ } 
3160 LPRINT CHR$ ( 12 ) 

3170 END 

3180 REM: DATA DELETE SUBROUTINE 
3190 LOCATE 25 # 2:PRINT” 


3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 


BEING DELETED. 


' = " " : INFOS-” M :N=0:T%=0 


FOR Y= 1 TO 100 

LOCATE 3,15: PRINT tr ALL TEST INFORMATION I; 

LOCATE 23 , 2 : PRINT "PLEASE WAIT 
NEXT Y 

TDF$ = " ” : TTF$ = ” ”:TPF$ = ,f fl -PM$ = ? 

RETURN 
END 

REM: REAL TIME GRAPH SUBROUTINE 
REM: SET UP GRAPH PARAMETERS 

LP = 0 :UP=2! : LX= 300 : RX = 6 60 :TY=20 : BY^lOO : YG=5 * XG-4 
SX=RX-LX 

SF = SX/(RX-LX) : PY= ( UP-LP > / ( BY-TY ) : XX « LX 

GOSUB 3360 

GOSUB 3440 

RETURN 

END 

REM: FRAME AND PLOT 

LINE (LX-l,TY-l)-(RX+l,BY+l) t l f B 

FOR GY=TY TO BY STEP ( BY-TY) /YG:LINE t LX-1 . GY! - (LX-S GY) -NEXT >”v 
RETURN = ^ T ° ** STEP (RX - LX >^G:LINE ( GX , BY + 1 > - ( GX . 3Y+5 i : N^GX 
END 

REM: CLEAR ACTIVE WINDOW AND DRAW GPID 
LINE ( LX , TY ) - ( RX , BY ! , 0 , BF 

£°£ T0 BY STEP * ( BY-TY )/YG) :LINE(RX,GY ) - fLX.GY) ‘NEXT GY 

RETURN =LX T ° m STEP ( <^>/ X G):UNE(GX;bY)-!gx;tY,;S 
END 


GX 


3480 REM: PLOTTING DATA POINTS 

3490 IF XX>RX THEN XX=LX:GOSUE 3420 

3500 PL=UP-MU 

3510 YY- ( PL/PY ) +TY 

3520 IF YY<TY THEN YY=TY 

3530 IF YY>BY THEN YY=BY 

3540 PSET (XX, YY) ,1 

3550 XX=XX+1/SF 

3560 RETURN 

3570 END 

3580 REM: PROGRAM ABORT SUBROUTINE 
3590 CALL INTOFF 
3600 CLS 
3610 SYSTEM 


3620 REM:REINITILIZE VARIABLES AND CLEAR SCREEN 
3630 CLS 

3650 MU-0: VA=0 ;LD=0 :TTXP=0 :TRP=0 :TRF=0 :TTRM=0 

« 6 n 0 ^™ 0:FOT=0:OTP=0:TSPEC = 0:TFURN1=0: TFURN2 = 0:TFURN3=0-TFURN4=O-SPD-O-RTP-O-l 
H=0 : STAT%=0 : SPCYC = 0 : M0N%=0 : MONITORS 0 : SP=0 : TS=0 • Fl = 0^2=o ' ‘ 

3670 RETURN ’ 


3680 END 
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3690 REM: PRINT SCREEN SUBROUTINE 
3700 DEF 3EG:P=0:I=0:J=0:DIM ARRAY ( 3 ) 

3710 DATA &H55 
3720 DATA &HCD , &H05 
3730 DATA &H5D 
3740 DATA &HCB 

3750 P=VARPTR f ARRAY ( 1 ) ) : FOR 1=0 TO 4: READ J : POKE < ?+ 1) , J : NEXT I 

3760 SUBRT=VARPTR( ARRAY ( 1 )) : CALL SUBRT 

3770 LPRINT CHR$fl2i 

3780 ERASE ARRAY : RESTORE : DEF SEG=20 

3790 RETURN 

3 6 OC END 
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APPENDIX E 


OSCILLATING PROGRAM LISTING 


10 COLOR 11,0,0 
20 CLS 

30 GO SUB 3460 

40 REM : PIN** ON- DISK OSILLATING <POD,OSI> 

50 CLS 

60 LOCATE 10, 30: PRINT" WELCOME TO POD. OS I" 

70 LOCATE 12,31: PRINT "WRITTEN CDB 881711" 

80 LOCATE 25,2: PRINT"PLEASE WAIT" 

90 FOR X 3 1 TO 5000 
100 NEXT X 
110 CLS 

120 LOCATE 5, 34: PRINT "DIRECTIONS" 

130 LOCATE 7,5: PRINT"THIS PROGRAM IS DESIGNED TO GATHER TEST DATA FROM THE HIGH 
TEMPERATURE" 

140 LOCATE 8,5:PRINT"TRIBOMETER. IT WILL MONITOR THE TEST RIG DURING HEATING AND 
ESTABLISH" 

150 LOCATE 9 , 5 : PRINT "THE INTERUPT TIME INTERVAL FORM DATA SAMPLING. IT WILL RECO 
RD FRICTION" 

160 LOCATE 10,5: PRINT"FORCE AND LOAD IN KG’S, MOTOR SPEED, SPECIMEN AND FURNACE 
TEMPERATURES , " 

170 LOCATE 11, 5:PRINT"THIS PROGRAM WILL ALSO PROVIDE TEST RIG STATUS: OIL FLOW. 
OIL TEMPERATURE," 

180 LOCATE 12, 5: PRINT "CURRENT DATA POINT AND ROOM TEMPERATURE AND HUMIDITY." 

190 LOCATE 19,5: PRINT"ENTER TEST INFORMATION AS REQUESTED; (NOTE; TO IDENTIFY A 
TEST FILE" 

200 LOCATE 20,5:PRINT"A FILE NAME MUST EXIST-EX . : FOR TEST ***; THE FILE IS ***.D 
AT;" 

210 LOCATE 25,2: INPUT"ARE YOU READY TO CONTINUE (Y OR N) : " ; A$ 

220 IF A$= "Y" THEN 240 
230 GOTO 210 
240 CLS 

250 LOCATE 5 , 2 : INPUT "ENTER THE TEST RUN DATA FILE NAME <***.DAT): ";TPF$ 

260 CLS 

270 LOCATE 5,5: PRINT"TEST RUN: ";TPF$ 

280 LOCATE 10 , 2 : INPUT"IS THE FILE NAME CORRECT (Y OR N) : ";B$ 

290 IF B$= "Y" THEN 360 
300 IF B$="N" THEN 320 
310 GOTO 280 
320 CLS : TPF4=" " 

330 LOCATE 3,2: PRINT"FILE NAME HAS BEEN DELETED. PLEASE RE-ENTER:" 

340 BEEP 
350 GOTO 250 
360 CLS 

370 LOCATE 5 , 2 : PRINT "ENTER ANY TEST INFORMATION YOU WANT RECORDED." 

380 LOCATE 7 , 10 : INPUT"PIN MATERIAL & I.D.#: ";PM$ 

390 LOCATE 9 , 10 : INPUT"DISK MATERIAL & I.D.#: ";DM$ 

400 LOCATE il,10:LINE INPUT"TEST INFORMATION ( IE : TEMP., LOAD., ETC.); ";INFO$ 

410 LOCATE 25,2: INPUT"IS THE TEST INFORMATION CORRECT (Y OR N): ”;C$ 

420 IF CS="Y" THEN 500 
430 IF C$-"N" THEN 450 
440 GOTO 410 

450 DM$ * " " : PM$ = " ":INFO* 3 " " 

460 CLS 

470 LOCATE 3,2: PRINT"TEST INFORMATION HAS BEEN DELETED. PLEASE RE-ENTER." 

480 BEEP 
490 GOTO 370 
500 CLS 

510 LOCATE 5, 2: INPUT"ENTER THE NUMBER OF DATA POINTS FOR THE TEST: " ;N 
520 DIM POINTS ( N, 4 ) 

530 LOCATE 7 , 2 : PRINT "PLEASE NOTE THAT THE DATA POINT INTERVAL IS 5 MILLISECONDS. 

11 

540 LOCATE 8,2:PRINT"B£ AWARE THAT THE LENGTH OF THE TEST WILL VARY BASED ON THE 

M 

550 LOCATE 9 , 2 : PRINT "OSCILLATION RATE OF THE SPECIMEN." 

560 FOR STALL 3 1 TO 3500 
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570 NEXT STALL 

5 80 LOCATE 25,2: INPUT" 13 THE NUMBER OF DATA POINTS CORRECT (Y OR M > : " ; D5 

590 IF D$="Y" THEN 630 

600 IF D$= "N" THEN 620 

610 GOTO 580 

620 N = 0 

630 ERASE POINTS 
640 CLS 

650 LOCATE 3,2: PRINT "THE NUMBER OF DATA POINTS HAS BEEN DELETED PLEASE RE-ENTER. 


660 BEEP 
670 GOTO 510 
680 CLS 

690 LOCATE 3,5: PRINT"TEST RUN: ":TPF$ 

700 LOCATE 6 . 5 : PRINT” DATA FILE: **:TPF$ 

710 LOCATE 10, 5:PRINT f, PIN MATERIAL: ":PM$ 

720 LOCATE 11 , 5 : PRINT"DISK MATERIAL: H ; DMS 

730 LOCATE 13 , 5 : PRINT "TEST INFORMATION: " : INFOS 

740 LOCATE 16 , 5 : PRINT "NUMBER OF DATA POINTS: ":N 

750 LOCATE 25 . 2 : INPUT" ARE THE VALUES AND INFORMATION CORRECT (7 OR NJ: " : ES 


760 IF E$="Y" THEN 990 
770 IF E$= "N" THEN 790 
780 GOTO 750 
790 GOSUB 3020 
800 CLS 

810 LOCATE 1, 20:PRINT"ALL TEST DATA HAS BEEN DELETED." 


820 BEEP 

830 LOCATE 9,2:INPUT"DO YOU WANT TO RE-ENTER NEW DATA (Y OR N): ":F$ 

840 IF F$= "Y” THEN 240 
850 IF F$= "N" THEN 870 
860 GOTO 830 
870 CLS 

8 80 LOCATE 5,12: PRINT"ENTER THE NUMBER OF THE FUNCTION YOU WANT TO PERFORM." 
890 LOCATE 8,15: PRINT" 1 . GO TO DIRECTIONS" 

900 LOCATE 10 , 15 : PRINT" 2 . RE-ENTER TEST DATA" 

910 LOCATE 12, 15: PRINT" 3 . MONITOR MODE" 

920 LOCATE 14 , 15 : PRINT"4 . QUIT" 

930 LOCATE 16 , 2 : INPUT "ENTER NUMBER: " ; G 

940 IF G=1 THEN 40 

950 IF G=2 THEN 240 

960 IF G- 3 THEN 990 

970 IF G=4 THEN 3420 


980 GOTO 930 
990 CLS 

1000 CALL INIT 

1010 REM: INITIATES MONITOR FUNCTIONS AND DATA TIME INTERVAL 
1020 LOCATE 23 , 2 : PRINT "PRESS <SPACEBAR> TO START MONITOR FUNCTION." 
1030 I$= INKEY$ : IF I$=" " THEN 1040 ELSE 1020 
1040 CP=CP+1 

1050 IF CP = 1000 THEN 1480 
1060 I$=INKEY$:IF I$=" " THEN 1580 
1070 IF I $=CHR$ ( 64 ) THEN 3420 
1080 REM: ACCESS TO MONITOR VALUES 
1090 CALL ANREAD’ < "FLOWIN' 1 ,FIN,0 ) 

1100 CALL ANREAD* ( "FLOWOUT" , FOT , 0 ) 

1110 CALL ANREAD’ ( "OILTEMP" , OTP. 10) 

1120 CALL ANREAD r ( "TFURNAC 1 " , TFURN1 ,16) 

1130 CALL ANREAD 1 < "TFURNAC2 '* , TFURN2 , 16) 

1140 CALL ANREAD’ ("TFURNAC 3", TFURN3, 16) 

1150 CALL ANREAD’ ( "FCTRLl ", TFURN4 , 16} 

1160 CALL ANREAD’ ( "MTRSPD" , SPD , 0 ) 

1170 CALL ANREAD’ ( "RMTMP" , RTP , 0 ) 

1180 CALL ANREAD’ ( "RELH" , RH , 0 ) 

1190 FOR X=1 TO 10000 :NEXT X 
1200 REM: SCREEN DISPLAY 
1210 CLS 
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1220 LOCATE 10 , 50 : PRINT "MONITOR MODE" 

1230 LOCATE 1,4: PRINT" * **STORED VALUES***" 

1240 LOCATE 2,3:PRINT"F FRICTION: " : LOCATE 2,22: PRINT "Kg" 

1250 LOCATE 3,3: PRINT" APPLYLOAD : ,r : LOCATE 3,22: PRINT "Kg " 

1260 LOCATE 4,3: PRINT"F COEFFICIENT:"" 

1270 LOCATE 5 , 3 : PRINT"SPEC TEMP: fT : LOCATE 5,22: PRINT" ’ C" 

1280 TSPEC= ( TFURN1+TFURN2 + TFURN3+TFURN4 ) /4 
1290 LOCATE 5, 14: PRINT USING"# ###.##"; TSPEC 
1300 LOCATE 6 , 4 : PRINT"***RIG PARAMETERS* **" 

1310 LOCATE 7,3: PRINT"MTRSPEED : " ; " RPM" 

1320 SPD=SPD* 1000 

1330 LOCATE 7. 14: PRINT USING "####.##": SPD 

1340 LOCATE 8 , 3 : PRINT "FLOW IN ; LOCATE 3, 17: PRINT USING "#.*#": FIN 
1350 LOCATE 9 , 3 : PRINT"FLOW OUT: " : LOCATE 9, 17: PRINT USING "#.*#";FCT 
1360 LOCATE 10,3: PRINT"OILTEMP 
OTP 

1370 LOCATE 11,3: PRINT"T FURN 1 
; TFURN1 

1380 LOCATE 12,3: PRINT"T FURN 2 
; TFURN2 

1390 LOCATE 13,3 : PRINT”? FURN 3 
; TFURN3 

1400 LOCATE 14,3:PRINT"T FURN 4 
; TFURN4 

1410 RTP"RTP*10 

1420 LOCATE 15,3: PRINT "RMTEMP : " : LOCATE 15,11:PRINT USING"# *S RT? : LOCATE 15,17 
: PRINT" ? C" 

1430 RH=RH* 10 

1440 LOCATE 15 , 21 : PRINT"REL H: LOCATE 15.28:PRINT USING RH : LOCATE 15.33 

: PRINT 

1450 LOCATE 22 , 2 : PRINT"PR£SS <SPACEBAR> FOR DATA ACQUISTION." 

1460 LOCATE 23 , 10 : PRINT"PRESS <@> TO ABORT FUNCTION." 

1470 GOTO 1040 

1480 REM: PROGRAM CROSSROAD 

1490 CLS 

1500 LOCATE 10,5: PRINT 11 *** PRESS ***" 

1510 LOCATE 12,5: PRINT"R TO RETURN TO MONITOR MODE." 

1520 LOCATE 14 , 5 : PRINT" A FOR DATA ACQUISITION MODE." 

1530 LOCATE 16.5:PRINT"Q TO QUIT." 

1540 IS = INKEY$ : IF I$="Q" THEN 3420 

1550 IF I$="A" THEN 1590 

1560 IF I$="R" THEN 1570 

1570 GOTO 1030 

1580 REM: DATA ACQUISITION 

1590 CLS 

1600 CLS :KEY OFF : SCREEN 2: WIDTH' 80: GOSUB 3510 
1610 GOSUB 3110 

1620 LOCATE 23 , 2 : PRINT"PRESS <SPACEBAR> TO START DATA ACQUISITION." 

1630 I$=INKEY$ : IF I$ = " " THEN 1640 ELSE 1620 
1640 CALL CLOCKREAD’ (HR1%,MIN1%, SEC1%) 

1650 LPRINT" FFRCTN LOAD FCOEFF SPEED SPECTEMP TIME POIN 

T " 

1660 LOCATE 23, 2: PRINT" 

1670 CALL INIT 

1680 CALL ARMAKE' ( "STORE! " , 15 . , 2 ) 

1690 REM: CYCLING MEMORY 
1700 FOR TMX = 1 TO 15 

1710 CALL DIGINTRIG’ ( "DATRIG" . "ON" , "BT" ) 

1720 CALL ANIN ' ( "SAMPTS%" , 25 . , "LOAD , FRCTNF " , 1 . "WBT" , "CLOCK" ) 

1730 CALL INTON ' (5, "MIL") 

1740 STAT%=0 

1750 CALL STATUS’ ( "CLOCK". STAT%> 

1760 LOCATE 17,40: PRINT"TRIGGER" 

1770 LOCATE 18,40: PRINT"CYCLE: " ;TMX 
1780 IF STATT.OO GOTO 1750 
1790 CALL INTOFF 


, lb: fRiNT USING " # # . # # " : 

1 C" : LOCATE 11, 14: PRINT USING"####.##" 
’ C" : LOCATE 12,14:PRINT USING"####.##" 
1 C" : LOCATE 13, 14: PRINT USING" ####. * # " 
’ C " : LOCATE 14.14: I NT UP TMp, 
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1300 MLOAD =0 : SLOAD=0 :MFRCTNF=0 : SFRCTNF=0 
1801 LOCATE 18,50: PRINT "B4 1" 

1810 CALL MEANDEV 1 ( "SAMPTS%" , 1 , MLOAD , SLOAD * 1 . , 25 . , 0 ) 

1820 CALL MEANDEV' ( "SAMPTSV , 2 , MFRCTNF , SFRCTNF , 1. , 25 . ,0 ) 
1321 LOCATE 18 , 50 : PRINT"AF1" 

1030 MLOAD =ABS( MLOAD) 

1340 MFRCTNF=ABS( MFRCTNF) 

1350 CALL ARPUTVAL’ ( " STORE ! " , TMX , 1 , MLOAD) 

1860 CALL ARPUTVAL' ( "STORE! " .TMX. 2 , MFRCTNF ) 

1870 CALL ARDEL' ( "SAMPTSV 1 ) 

1880 CALL BACKCLEAR 

1890 NEXT TMX 

1891 LOCATE 18 , 50 : PRINT' t B42 ,, 

1900 CALL MEANDEV ( "STORE! ",1 , MLDl , SLD1 . 1. . 15 . ) 

1910 CALL MEANDEV' { "STORE !", 2, MVA1.SVA1.1. ,15. ) 

1911 LOCATE 18,50: PRINT"AF2 ,, 

1920 MLD1=MLD1: REM: VOLTAGE CALIBRATION 
1930 MVA1=MVA1 
1940 LD=ABS (MLDl ) 

1950 VA=ABS ( MVA1 } 

1960 MU=VA/LD 

1970 I$”INKEY$ : IF = THEN 2660 
1980 LP=LP+1 


1990 LPOLD=LP 

2000 CALL ANREAD 1 ( "MTRSPD" , SPD , 0 ) 

2010 CALL ANREAD' ( "FLOWIN’ 1 , FIN, 0 ) 

2020 CALL ANREAD r ( "FLOWOUT" , FOT , 0 ) 

2030 CALL ANREAD 1 ( "OILTEMP" , OTP , 10 ) 

2040 CALL ANREAD 1 ( "TFURNAC 1 ” , TFURN1 ,16) 

2050 CALL ANREAD 1 ("TFURNAC 2 M ,TFURN2, 16) 

2060 CALL ANREAD 1 ( "TFURNAC3" .TFURN3 , 16 ) 

2070 CALL ANREAD 1 ( "FCTRL1" , TFURN4 , 16) 

2080 CALL ANREAD' ( "RMTMP" , RTP , 0 ) 

2090 CALL ANREAD’ ( "RELH" , RH , 0 ) 

2100 SPD=SPD* 1000 

2110 CHZ=SPD/600 

2120 POINTS ( LPOLD , 0 ) =VA 

2130 POINTS ( LPOLD, 1)=LD 

2140 POINTS ( LPOLD , 2 ) =SPD 

2150 POINTS (LPOLD, 3 ) =TSPEC 

2160 REM: SCREEN DISPLAY ACQUISITION 

2170 LOCATE 1 , 4 : PRINT" ***STORED VALUES***" 

2180 LOCATE 2,3:PRINT"F FRICTION: LOCATE 

2190 LOCATE 2,15: PRINT USING" ###.##"; VA 

2200 LOCATE 3,3: PRINT" APPLYLOAD : ": LOCATE 3 

2210 LOCATE 3,15:PRINT USING"### .ft# " :LD 

2220 LOCATE 4,3:PRINT"F COEFFICIENT: " 

2230 LOCATE 4 f 18:PRINT USING"## .##" ;MU 
2240 LOCATE 5 , 3 : PRINT"SPEC TEMP; LOCATE 5 
2250 TSPEC= (TFURN1+TFURN2+TFURN3+TFTJRN4 ) /4 
2260 LOCATE 5.14:PRINT USING" ####,##"; TSPEC 
2270 LOCATE 6 , 4 : PRINT"***RIG PARAMETERS***" 
2280 LOCATE 7,3: PRINT"MTRSPEED : 

2290 LOCATE 7, 14: PRINT USING"#### .##"; SPD 
2300 LOCATE 8 , 3 : PRINT "FLOW IN: M : LOCATE 8, 

2310 LOCATE 9 . 3 ; PRINT "FLOW OUT: 

2320 LOCATE 10, 3: PRIM 
OTP 

2330 LOCATE 11, 3: PRIM 
;TFURN1 

2340 LOCATE 12, 3: PRIM 
; TFURN2 

2350 LOCATE 13,3:PRIM 
;TFURN3 

2360 LOCATE 14,3:PRIM 
;TFURN4 


2 , 22 : PRINT"Kg" 
.22: PRINT "Kg" 

^aiPRINT’^C" 


RPM" 

17 : PRINT USING"#. ##":FIN 
LOCATE 9, 17: PRINT USING" #.##"; FOT 


LTEMP : 

’C": LOCATE 

10, 16: PRINT 

USING 

"## , 

FURN 

1: 

’C"; LOCATE 

11,14: PRINT 

USING" 

#### 

FURN 

2: 

’C"; LOCATE 

12, 14:PRINT 

USING" 

#### 

FURN 

3: 

’C"; LOCATE 

13,14: PRINT 

USING" 

#### 

FURN 

4: 

’C": LOCATE 

14, 14: PRINT 

USING" 

#### 
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2370 RTP=RTP*10 

2380 LOCATE 15 , 3 : PRINT "RMTEMP; LOCATE 15,11:PRINT USING"### .#" ;RTP: LOCATE 15 17 
: PRINT" ' C" 

2390 RH=RH*10 

2400 LOCATE 15,21: PRINT"R£L H: " : LOCATE 15,28:PRINT USING "##.#" ;RH: LOCATE 15,33 
: PRINT "X" 

2410 LOCATE 19 f 50 : PRINT "PRESS <@> TO ABORT TEST RUN." 

2420 LOCATE 17 , 3 : PRINT" DATA POINT STATUS : M 
2430 LOCATE 18,3: PRINT " CURRENT : " ; LPOLD 
2440 LOCATE 19,3: PRINT”FINAL : ";N 
2450 LOCATE 17 , 23 :PRINT"CYC'S/S(Hz } : " 

2460 LOCATE 18 , 27 : PRINT USING"#* .###"; CHZ 
2470 LOCATE 20 , 3 : PRINT "TEST RUN: ";TPF$ 

2480 LOCATE 21 , 3 : PRINT"PIN: DISK: ";DMS 

2490 LOCATE 22 , 3 : PRINT "TEST INFO: ” ; INFO$ 

2500 LOCATE 14 , 56 : PRINT"TIME >" 

2510 LOCATE 1 , 50 : PRINT "FRICTION COEFFICIENT" 

2520 LOCATE 3,35: PRINT" 2 . 0 ” 

2530 LOCATE 5 , 3 5 : PRINT"1 . 6" 

2540 LOCATE 7 , 35 : PRINT"1 . 2" 

2550 LOCATE 9 , 3 5 : PRINT"0 . 8" 

2560 LOCATE 11 , 3 5 : PRINT"0 . 4" 

2570 LOCATE 13 , 3 5 : PRINT"0 . 0" 

2580 TIME=(LP*30)/60 ’TIME CONSTANT FOR 141 RPM 

2590 LPRINT USING"####### . ##";VA;LD ;MU ; SPD ; TSPEC ; TIME; LP 

2600 POINTS (LPOLD, 4 )=TIME 

2610 GOSUB 3320 

2620 CALL ARDEL ’( "STORE !" ) 

2630 TMX * 0 

2640 IF LP=N THEN 2660 

2650 GOTO 1670 

2660 REM: DATA COMPLETET I ON AND SHUTDOWN 
2670 CALL CLOCKREADMHR2%,MIN2%,SEC2%) 

2680 LOCATE 19, 50: PRINT" 

2690 LOCATE 23,2: PRINT M DATA ACQUISITION COMPLETE. SHUT RIG DOWN. PRESS <R> TO CO 
NTINUE . 

2700 I$=INKEYS : IF I$*"R" THEN 2720 
2710 GOTO 2690 
2720 CALL INIT 
2 7 3 0 - ARN$ = " DATAPTS ! " 

2740 CALL ARMAKE 1 ( ARN$ , N , 5 ) 

2750 CALL ARLABEL 1 ( ARN$ , INFOS ) 

2760 LOCATE 16 , 60 : PRINT"PRESS <P> TO PRINT” 

2770 LOCATE 17 , 60 : PRINT”<D> TO PRINT DATA" 

2780 LOCATE 18 , 60 : PRINT"OR <Q> TO QUIT." 

2790 LOCATE 23, 2: PRINT" 

»? 

2800 LPRINT CHR$(12) 

2810 I$=INKEY$ 

2820 IF I$="P" THEN 2860: RIM: PRINT ALL 

2830 IF I$="D" THEN 2870: REM: PRINT DATA 

2840 IF I$= "Q" THEN END: REMiQUIT 

2850 GOTO 2810 
2860 GOSUB 3540 

2870 LPRINT" FFRCTN LOAD FCOEFF SPEED SPECTEMP TIME POIN 

rjtn 

2880 FOR T= 1 TO LP 

2890 VA-POINTS ( T , 0 ) : CALL ARPUTVAL ' { ARN$ , T , 2 , VA ) 

2900 LD=POINTS ( T , 1 ) : CALL ARPUTVAL ’( ARN$ , T , 3 , LD > 

2910 SP -POINTS ( T , 2 ) : CALL ARPUTVAL ’( ARN$ , T , 4 , SP > 

2920 TS=POINTS( T , 3 ) : CALL ARPUTVAL ’( ARN$ , T , 5 , TS ) 

2930 VA=VA 
2940 LD=ABS(LD) 

2950 TIME* (T*30 ) /60 'TIME CONSTANT FOR 141 RPM 
2960 MU-VA/LD : CALL ARPUTVAL '( ARN$ , T , 1 , MU ) 

2970 LPRINT USING"## t I### . I#"; VA; LD ;MU; SP;TS ;TIME;T 
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2980 NEXT T 

2990 CALL ARWRITE ’ ( ARN$ , TPF$ ) 

3000 LPRINT CHR$ C 1 2 ) 

3005 SCREEN 0 , 0 , 0 : CLS 
3010 END 

3020 REM: DATA DELETE SUBROUTINE 

3021 CLS 

3030 LOCATE 25,2: PRINT" 

3040 FOR Y= 1 TO 100 

3050 LOCATE 3,15: PRINT"ALL TEST INFORMATION IS BEING DELETED. " 

3060 LOCATE 23 , 2 : PRINT "PLEASE WAIT ";Y 

3070 NEXT Y 

3080 TDF$=" ”:TTF$=" " :TPF$=" " :DM$=" " :INFO$=" ":N=0:T%=0 

3090 RETURN 
3100 END 

3110 REM: REAL TIME GRAPH SUBROUTINE 
3120 REM: SET UP GRAPH PARAMETERS 

3130 LP = 0 : UP = 2 I :LX=300 :RX=660 :TY=20 :BY=100 : YG=5 :XG=4 
3140 SX=RX-LX 

3150 SF=SX/ ( RX-LX ) :PY S (UP-LP) / (BY-TY ) :XX=LX 

3160 GOSUB 3200 

3170 GOSUB 3280 

3180 RETURN 

3190 END 

3200 REM: FRAME AND PLOT 

3210 LINE ( LX- 1 , TY~ 1 > - ( RX+ 1 , BY+1 ) , 1 , B 

3220 FOR GY=TY TO BY STEP ( BY-TY ) /YG : LINE (LX- 1 1 GY ) - ( LX- 9 , GY ) :NEXT GY 

3230 FOR GX=LX TO RX STEP (RX-LX ) /XG : LINE ( GX , 3Y+1 ) - ( GX . BY+5 ) : NEXT GX 

3240 RETURN 
3250 END 

3260 REM: CLEAR ACTIVE WINDOW AND DRAW GRID 
3270 LINE { LX , TY ) - ( RX , BY ) , 0 , BF 

3280 FOR GY=TY TO BY STEP ( ( BY-TY )/YG) ;LINE(RX,GY) - (LX, GY) :NEXT GY 

3290 FOR GX=LX TO RX STEP ( (RX-LX ) /XG ) : LINE ( GX , BY ) - ( GX , TY ) : NEXT GX 

3300 RETURN 
3310 END 

3320 REM: PLOTTING DATA POINTS 

3330 IF XX>RX THEN XX=LX : GOSUB 3260 

3340 PL=UP-MU 

3350 YY= ( PL/PY ) +TY 

3360 IF YY<TY THEN YY=TY 

3370 IF YY>BY THEN YY=BY 

3380 PSET ( XX , YY) , 1 

3390 XX=XX+ 1/SF 

3400 RETURN 

3410 END 

3420 REM: PROGRAM ABORT SUBROUTINE 
3430 CALL INTOFF 
3440 CLS 
3450 SYSTEM 

3460 REM: RE INI TIL I ZE VARIABLES AND CLEAR SCREEN 
3470 CLS 

3480 MMX=0:MSPD=0:SSPD=0:T%=0:N=0:TMX=0:LP=0:LPOLD=0:CP=0:HR%=0:HR1%=0:HR2%=0:MI 
N%=0 : MIN17o=0 ;MIN2%=0 : SEC%=0 : SEC1%=0 : SEC2% = 0 
3490 MLDl^O : SLD1-0 :MVA1=0 : SVAl^O 

3500 MU=0 : VA=0 : LD=0 :MLOAD=0 : SLOAD=0 :MFRCTNF=0 : SFRCTNF=0 : 

3510 FIN=0:FOT=0:OTP=0:TSPEC=0:TFURN1=0:TFURN2=0:TFURN3=0:TFURN4=0:SPD=0:RTP=0:R 
H=0 : STAT%=0 : SPCYC=0 : MON%=0 :MONITOR%=0 : SP=0 :TS=0 
3520 RETURN 
3530 END 

3540 REM: PRINT SCREEN SUBROUTINE 

3550 LOCATE 16 , 60 : PRINT" " 

3560 LOCATE 17 ,60: PRINT" " 

3570 LOCATE 18 , 60 : PRINT" M 

3580 LOCATE 17,55: PRINT"START : " ; HR1% ; " : " ; MIN1%; " : " ; SEC1% 
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3 5 90 LOCATE 18 f 54 : PRINT"FINISH : "HR2%; M : ri ;MIN2% SEC 2% 
3600 DEF SEG : P=0 : 1 = 0 : J = 0 : DIM ARRAY ( 3 ) 

3610 DATA &H55 
3620 DATA &HCD , &H05 
3630 DATA &H5D 
3640 DATA &HCB 

3650 P=VARPTR ( ARRAY ( 1 ) ) : FOR 1 = 0 TO 4 : READ J : POKE ( P+I ). J : NEXT 
3660 SUBRT = VARPTR ( ARRAY ( 1 ) ) : CALL SUBRT 
3670 LPRINT CHR$( 12) 

3680 ERASE ARRAY : RESTORE : DEF SEG =20 
3690 RETURN 
3700 END 
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